sdk/samples/all in on code/Visual Studio 2010/VBAzureXbap/WCFServiceWebRole/WebRole.vb

   1 Imports System
   2 Imports System.Collections.Generic
   3 Imports System.Linq
   4 Imports Microsoft.WindowsAzure
   5 Imports Microsoft.WindowsAzure.Diagnostics
   6 Imports Microsoft.WindowsAzure.ServiceRuntime
   7
   8 Public Class WebRole
   9     Inherits RoleEntryPoint
  10
  11     Public Overrides Function OnStart() As Boolean
  12
  13         DiagnosticMonitor.Start("DiagnosticsConnectionString")
  14
  15         ' For information on handling configuration changes
  16         ' see the MSDN topic at http://go.microsoft.com/fwlink/?LinkId=166357.
  17         AddHandler RoleEnvironment.Changing, AddressOf RoleEnvironmentChanging
  18
  19         Return MyBase.OnStart()
  20
  21     End Function
  22
  23     Private Sub RoleEnvironmentChanging(ByVal sender As Object, ByVal e As RoleEnvironmentChangingEventArgs)
  24
  25         ' If a configuration setting is changing
  26         If (e.Changes.Any(Function(change) TypeOf change Is RoleEnvironmentConfigurationSettingChange)) Then
  27             ' Set e.Cancel to true to restart this role instance
  28             e.Cancel = True
  29         End If
  30
  31     End Sub
  32
  33 End Class
  34